BEGIN "VAR2"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
DEFINE NF=2;
INTEGER MAXL,OCH,I,T;
STRING ARRAY SF[1:NF];   INTEGER ARRAY PIC[1:NF,0:10],PCH[1:NF],OPC[0:10];

FOR I←1 STEP 1 UNTIL NF DO
   BEGIN  DO PRINT("BIT FILE ",I,":") UNTIL PFLDIM(SF[I]←INCHWL)>0;
	  PCH[I]←OPNPFL(SF[I],PIC[I,0]);  END;

MAXL←PIC[1,PCLN];  FOR I←1 STEP 1 UNTIL NF DO MAXL←MAXL MAX PIC[I,PCLN];

MAKDIM(MAXL,4224+36,1,OPC[0]);
PRINT("OUTPUT FILE:");  OCH←CREPFL(OPC[0],INCHWL);

FOR I←0 STEP 1 UNTIL MAXL-1 DO
    BEGIN
    INTEGER PT,RH,MI,MIP,LO,HI;  INTEGER ARRAY SCNLIN[0:200];

    WORDIN(PCH[1]); WORDIN(PCH[1]);
    ARRYIN(PCH[1],SCNLIN[1],PIC[1,LNWD]-2);
    T←SCNLIN[61]; WORDIN(PCH[2]);
    ARRYIN(PCH[2],SCNLIN[61],PIC[2,LNWD]-1);
    SCNLIN[59]←SCNLIN[59] LOR '4000;
    SCNLIN[61]←SCNLIN[61] LOR T;
    IF I=0 ∨ I=MAXL-1 THEN ARRCLR(SCNLIN,-1);
    ARRYOUT(OCH,SCNLIN[0],OPC[LNWD]);
    END;
RELEASE(OCH);

END "VAR2";